home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Programming / AmigaE / Src / OOmodules / list / doublylinked / stringlist / testExec.e < prev   
Encoding:
Text File  |  1996-04-10  |  719 b   |  47 lines
  1. MODULE  'oomodules/list/doublylinked/stringlist',
  2.         'oomodules/list/execList',
  3.         'oomodules/list/eList',
  4.         'exec/lists',
  5.         'exec/nodes'
  6.  
  7.  
  8.  
  9. PROC main()
  10. DEF stringList:PTR TO stringList,
  11.     sortedList,
  12.     index,
  13.     execlist:PTR TO execlist,
  14.     elist:PTR TO elist
  15.  
  16.  
  17.   NEW stringList.new()
  18.  
  19.   stringList.fromList(['fire','walk','with','me'])
  20.  
  21.   NEW elist.new()
  22.  
  23.   elist.set(stringList.asList())
  24.   NEW execlist.new(["list", elist.list])
  25.  
  26.   dumpExeclist(execlist.list)
  27.  
  28. ENDPROC
  29.  
  30. PROC dumpExeclist(list:PTR TO lh)
  31. DEF node:PTR TO ln,
  32.     nextnode:PTR TO ln
  33.  
  34.   node := list.head
  35.  
  36.   WHILE node.succ
  37.  
  38.     WriteF('\s\n', node.name)
  39.  
  40.     nextnode := node.succ
  41.  
  42.     node := nextnode
  43.  
  44.   ENDWHILE
  45.  
  46. ENDPROC
  47.